1 PRINT"":POKE53281,0:POKE53280,7:A=0
2 PRINT"":FORU=1TO300:NEXTU:GOTO50
3 PRINT"[159]":FORU=1TO300:NEXTU:GOTO50
4 PRINT"[156]":FORU=1TO300:NEXTU:GOTO50
5 PRINT"":FORU=1TO300:NEXTU:GOTO50
6 PRINT"":FORU=1TO300:NEXTU:GOTO50
7 PRINT"[158]":FORU=1TO300:NEXTU:GOTO50
8 PRINT"[149]":FORU=1TO300:NEXTU:GOTO50
9 PRINT"[152]":FORU=1TO300:NEXTU:GOTO50
50 PRINT:PRINT"[147]":PRINT:PRINT:PRINT
55 PRINT"               [175][175][175][175][175][175][175][175][175][175]"
60 PRINT"              [182]PSYCHOTEST[181]"
70 PRINT"         [175][210][198][195][196][197][183][183][183][183][183][183][183][183][183][183][197][196][195][198][210][175]"
80 PRINT"         [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
90 PRINT"         [180]WRITTEN BY MR.JOKER![170]"
100 PRINT"         [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
110 PRINT"         [180]WRITTEN IN 1990 ....[170]"
120 PRINT"         [180]THE TEXT IS IN .....[170]"
130 PRINT"         [180]GERMAN.HAVE BIG FUN![170]"
140 PRINT"         [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
145 A=A+1:IFA=10THEN GOTO170
150 CL=INT(8*RND(1))+1
160 ONCL GOTO 2,3,4,5,6,7,8,9
170 FORX=1TO1000:NEXTX
180 PRINT""
190 PRINT"[147]"
200 PRINT
210 PRINT" DU BEKOMMST NUN MEHRERE FRAGEN"
220 PRINT:PRINT" GESTELLT.DU MUSST AUF JEDE"
230 PRINT:PRINT" FRAGE ANTWORTEN.DU HAST 3"
240 PRINT:PRINT" MOEGLICHKEIT ZU ANTWORTEN."
250 PRINT:PRINT" (1) DU DRUECKST DIE [1] ,"
260 PRINT:PRINT" DAS HEISST:JA."
270 PRINT:PRINT" (2) DU DRUECKST DIE [2] ,"
280 PRINT:PRINT" DAS HEISST:ES GEHT SO."
290 PRINT:PRINT" (3) DU DRUECKST DIE [3] ,"
300 PRINT:PRINT" DAS HEISST:NEIN."
310 PRINT:PRINT:PRINT" AM SCHLUSS WIRST DU DEINEN"
320 PRINT:PRINT" BERUFSTIP ERHALTEN."
330 GETA$:IFA$=""THEN330
340 PRINT"[147]"
350 PRINT"[159]"
360 PRINT:PRINT" MAGST DU SAUBERE ARBEIT?"
370 GETB$:IFB$=""THEN370
380 PRINT:PRINT" BIST DU GUT IN SPORT?"
390 GETC$:IFC$=""THEN390
400 PRINT:PRINT" TRINKST DU ALKOHOL?"
410 GETD$:IFD$=""THEN410
420 PRINT:PRINT" RAUCHST DU?"
430 GETE$:IFE$=""THEN430
440 PRINT:PRINT" GUCKST DU VIEL FERN?"
450 GETF$:IFF$=""THEN450
460 PRINT:PRINT" EKELST DU DICH VOR DRECK?"
470 GETG$:IFG$=""THEN470
480 PRINT:PRINT" MAGST DU SPINNEN?"
490 GETH$:IFH$=""THEN490
500 PRINT:PRINT" STINKST DU?"
510 GETI$:IFI$=""THEN510
520 PRINT:PRINT" GUCKST DU PORNOS?"
530 GETJ$:IFJ$=""THEN530
540 PRINT:PRINT" LIEBST DU KRIEG?"
550 GETK$:IFK$=""THEN550
560 PRINT:PRINT" WECHSELST DU TAEGLICH DIE SOCKEN?"
570 GETL$:IFL$=""THEN570
580 PRINT:PRINT" HEISST DU >UWE BLASK<?"
590 GETM$:IFM$=""THEN590
600 IFM$="1"THEN PRINT"NIMM DIE FLOSSEN VOM COMPUTER!!!!!!"
610 PRINT:PRINT" GUCKST DU VIEL KRIEGSFILME?"
620 GETN$:IFN$=""THEN620
630 PRINT:PRINT" KANNST DU PUTZEN?"
640 GETO$:IFO$=""THEN640
650 PRINT:PRINT" WARST DU SCHON MAL IM KNAST?"
660 GETP$:IFP$=""THEN660
670 PRINT:PRINT" BIST DU OFT KRANK?"
680 GETQ$:IFQ$=""THEN680
690 PRINT:PRINT" BIST DU EIN JUNGE?"
700 GETR$:IFR$=""THEN700
710 PRINT:PRINT" SCHMIERST DU POPEL AN DEINE KLAMOTTEN?"
720 GETS$:IFS$=""THEN720
730 IFB$="3" AND  G$="3" AND H$="1" AND O$="1" THEN GOTO 2000
740 IFB$="1" AND C$="1" AND D$="3" AND E$="3" AND G$="1" AND P$="3" THEN 2010
750 IFC$="1" AND D$="3" AND E$="3" AND P$="3" THEN GOTO2020
760 IFD$="1" AND E$="1" AND I$="1" AND L$="3" AND P$="1"THEN GOTO 2030
770 IFC$="1" AND G$="1" AND I$="3" AND J$="1" ANDR$="3" THEN GOTO 2040
780 IFK$="1" AND N$="1" AND R$="1" THEN GOTO2050
790 IFI$="1" AND M$="1" THEN GOTO2060
800 IFC$="2" AND H$="2" AND R$="2" THEN GOTO2070
810 IFE$="1" AND I$="1" AND K$="1" AND S$="1" THEN GOTO2080
820 IFB$="3" AND D$="1" AND E$="1" AND I$="1" AND R$="1" AND P$="1"THEN 2090
830 IFB$="2" AND O$="1" THEN GOTO 2100
840 IF B$="3" AND G$="3" AND H$="1" THEN GOTO2110
850 IFB$="1" AND F$="1" AND J$="1" AND N$="1" THEN GOTO2110
860 IFH$="1" AND R$="2" THEN GOTO 2120
870 IFB$="1" AND G$="3" AND L$="1" THEN GOTO 2130
880 IFC$="3" AND D$="1" AND F$="1" AND Q$="1" THEN GOTO 2140
890 IFM$="1" AND I$="3" THEN GOTO2150
900 IFR$="1" AND K$="1" AND F$="1" THEN GOTO 2160
910 IFB$="3" AND O$="3" THEN GOTO2170
920 IFS$="1" THEN GOTO 2180
930 IFR$="2" THEN GOTO 2190
940 IFQ$="1" THEN GOTO 2200
950 IFP$="1" THEN GOTO 2210
960 IFM$="1" THEN GOTO 2220
970 IFK$="1" THEN GOTO 2230
980 IFI$="1" THEN GOTO 2240
990 IFD$="1" THEN GOTO 2250
1000 IF C$="3" THEN GOTO 2260
1010 GOTO 2270
2000 PRINT"[147]"
2001 PRINT" IN IHREM FALL WAEHRE DER BERUF GULLIREINIGER OPTIMAL":GOTO 3000
2010 PRINT"[147] SIE SIND EIN ELENDIGER ARSCHKRIECHER!"
2011 PRINT" SIE SOLLTEN SEKRITAER WERDEN!":GOTO3000
2020 PRINT"[147] AM BESTEN WAEHRE FUER SIE EIN VERTRAG"
2022 PRINT" ALS PROFISPORTLER IN TEEBEUTELWEITWURF.":GOTO3000
2030 PRINT"[147] DAS ERGEBNIS LAUTET EINDEUTIG PENNER.":GOTO3000
2040 PRINT"[147] SIE WAEREN SUPER ALS BETRIEBSNUTTE"
2042 PRINT"GEEIGNET.":GOTO3000
2050 PRINT"[147] SIND SIE EIN AMOKLAEUFER  !SIE WOLLEN"
2052 PRINT" DOCH NICHT ETWA EIN NAZI WERDEN ODER?KILLSUECHTIGE SAU!.":GOTO3000
2060 PRINT"[147] EROEFFNEN SIE EINE KNOBLAUCHFABRIK.":GOTO3000
2070 PRINT"[147] DIR IST NICHT ZU HELFEN.SIND SIE EIN    MARSMENSCH.":GOTO3000
2080 PRINT"[147] SIE SIND EIN SELTSAMES GESCHOEPF!!!":GOTO3000
2090 PRINT"[147] NACH IHREN ANGABEN KOENNTEN SIE IN"
2092 PRINT" EINER GEISTERBAHN ALS MONSTER ARBEITEN.":GOTO3000
2100 PRINT"[147] DA SIE SELBST AUSSEHEN WIE EIN "
2102 PRINT" WASCHLAPPEN WERDEN SIE DOCH PUTZFRAU!":GOTO3000
2110 PRINT"[147] SIE SOLLTEN DIE ALTERSBESCHRAENKUNG"
2112 PRINT" VON FILMEN BESTIMMEN (ZENSUR)":GOTO3000
2120 PRINT"[147] GEHEN SIE SOFORT ZUM ZIRKUS!":GOTO3000
2130 PRINT"[147] SIE SIND FUERS BUERO GESCHAFFEN!"
2132 PRINT"[147] WERDEN SIE EIN ARMER BUEROFRITZE!!!!":GOTO3000
2140 PRINT"[147] REICHEN SIE LIEBER GLEICH DIE RENTE     EIN.":GOTO3000
2150 PRINT"[147] ICH GLAUBE IHNEN KEIN WORT!!!!!!!!!!!!":GOTO3000
2160 PRINT"[147] WERDEN SIE EIN BERUFSZOCKER!!!!!!!!!!!":GOTO3000
2170 PRINT"[147] KLAUEN SIE MIRKO DIE MOEBEL UND WERDEN"
2173 PRINT" SIE MUELLTONNENLEERFRESSER.":GOTO3000
2180 PRINT"[147] SIE SIND DER OPTIMALE NASENBOHRER!"
2182 PRINT" VERDIENEN SIE IHR GELD MIT OEL.":GOTO3000
2190 PRINT"[147] DA SIE ZWIDDER SIND KOENNEN SIE IN "
2192 PRINT" EINEN MISCHPUFF ARBEITEN !":GOTO3000
2200 PRINT"[147] DIE ARBEIT IM LEICHENSCHAUHAUS PASST"
2202 PRINT" PASST ZU IHNEN!!!!!EL BRUTALOS":GOTO3000
2210 PRINT"[147] SIE ALTER STRAEFLING KOENNTEN "
2212 PRINT" KNASTBERATER WERDEN.":GOTO3000
2220 PRINT"[147] DU BIST DOCH SCHON LEHRER.":GOTO3000
2230 PRINT"[147] WERDEN SIE EIN 2. ADOLF! (DIKTATOR)!":GOTO3000
2240 PRINT"[147] SO WIE SIE AUSSEHEN,WERDEN SIE DOCH     VOGELSCHEUCHE!":GOTO3000
2250 PRINT"[147] SIE SOLLTEN DER VORKOTZER VOM KOENIG    WERDEN!":GOTO3000
2260 PRINT"[147] DA SIE SELBST SO EINE FAULE SAU SIND,"
2270 PRINT" SOLLTEN SIE FAULTIERZUECHTER WERDEN.":GOTO3000
2280 PRINT"[147] SIE GEBEN SO SCHEISS ANTWORTEN,SO DAS"
2290 PRINT" KEINE ERNSTHAFTE BEWERTUNG MOEGLICH IST"
3000 PRINT" NOCHMAL? (J/N)"
3001 GETT$:IFT$=""THEN3001
3004 IFT$="J"THENGOTO340
3005 NEW